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Complete  implementation  of  the  CODASYL  network  data  base  standard 
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2.  Sophisticated  concurrency  control  with  automatic  rollback  in  case 
of  data  base  conflicts.  ci. 
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Automatic  rollbacks  of  processes  that  were  active  when  systems 
crashed. 
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EVALUATION 


The  objective  of  this  effort  was  to  implement  an  Informa-  i 

tion  Management  System  Multi  Access  Data  Management  System 
(MADMAN)  which  until  this  effort  was  based  solely  on  the 
PDP-11/45  Computer,  on  the  Honeywell  H6180  Computer  System. 

This  development  falls  within  the  goals  of  RADC  TPO  V, 
specifically  in  the  3.3Tools  and  Procedures  Area. 

The  General  Electric  Company,  Corporate  Research  and 
Development  Center,  the  Original  Implementor  of  MADMAN  on  the 
PDP-11/40  and  45  computer  systems,  successfully  re- i mp 1 emen ted 
MADMAN  on  the  H6180  computer  system  for  RADC.  An  exhaustive 
test  plan  was  successfully  carried  out  to  test  all  the 
capabilities  of  the  system.  The  features  tested  fell  into 
four  parts: 

1.  Data  Description  Language  and  Data  Manipulation 
Language  Processors. 

2.  Concurrency  Control 

3.  Database  Utility  Programs 

4.  Recovery  from  System  Failure 

RADC  does  not  intend  to  do  further  work  with  this  system  at 
this  time.  However,  many  WWMCCS , Air  Force  and  Air  Force 
Intelligence  users  have  been  utilizing  mi ni -computers  to  solve 

* 

l 

their  data  management  and  large  data  base  file  problems.  In 
this  application  environment,  and  establishment  or  division  of 
tasks  of  the  data  management  system  between  the  small  and  large 
machine  is  important.  It  is  also  important  that  the  same  data 
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management  system  be  available  on  all  computers  in  the  systems. 
This  simplifies  data  and  application  program  interchange.  In 
recognition  of  this  concept  MADMAN  provides  a software  tool  to 
meet  the  above  requirements. 

DONALD  VANALSTINE 
Project  Engineer 
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1.  INTRODUCTION  TO  MADMAN 

This  report  is  in  two  volumes.  The  first  volume 
description  of  MADMAN  on  the  H6000  — what  it 
capabilities.  The  second  volume  contains  the  manuals 
with  MADMAN  on  the  H600L). 


contains  a 
is  and  its 
associated 
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1.1  Background 

The  Research  and  Development  Center  of  the  General  Electric 
Company  originally  designed  and  implemented  MADMAN  on  a PDP-11 
for  use  in  GE's  internal  manufacturing  facilities.  This  version 
is  presently  being  used  in  automation  and  information  gathering 
capaci t ies . 

MADMAN  was  then  moved  to  the  H6U00  under  contract  with  Rome 
Air  Development  Center.  Except  for  interfacing  with  the 
operating  system,  the  design  of  MADMAN  remained  the  same.  The 
original  implementation  on  the  PDP-11  had  been  done  using  a set 
of  macros  and,  except  for  the  operating  system  interfaces,  the 
reimplementation  consisted  of  recoding  the  macro  expansions. 
The  detailed  code  logic  flow  and  even  the  code  itself  are  thus 
quite  similar  in  the  two  implementations.  The  user  FORTRAN 
interfaces  are  identical. 

Because  the  H6000  implementation  is,  in  fact,  a 
r e impl emen ta t ion  of  a General  Electric  design,  the  design  and 
coding  documentation  is  released  with  limited  and  restricted 
rights  as  described  in  the  contract. 


2 


1.2  The  Data  Base  Administrator  and  System  Administrator 


In  the  description  of  how  MADMAN  is  to  be  installed  and 
maintained  at  any  given  site,  we  have  assumed  a particular  model 
of  how  the  system  will  be  used  and  specifically  we  have  assumed 
the  existence  of  two  individuals  operating  within  the  model: 
the  Data  Base  Administrator  and  System  Administrator. 

For  each  application,  the  Data  Base  Administrator  is 
responsible  for  designing  the  data  base  schema,  encoding  it  in 
the  data  description  language  and  providing  each  application 
programmer  with  the  passwords  and  other  information  needed  to 
write  the  application  programs. 

The  System  Administrator  is  responsible  for  creating  and 
maintaining  the  various  assemblies  and  files  needed  to  establish 
a MADMAN  system  corresponding  to  a particular  schema. 

The  Data  Base  Administrator  needs  to  be  knowledgeable  in 
data  base  technology  and  the  specific  application.  The  System 
Administrator  needs  to  be  knowledgeable  in  the  GCOS  system. 


1.3  Manuals 


Throughout  this  report  references  are  made  to  manuals 
written  for  the  users  of  MADMAN  on  the  H60U0.  The  following 
list  gives  the  name  and  a short  description  of  each  manual. 

1)  The  Care  and  Feeding  of  MADMAN  on  the  H6000 

This  manual  describes  the  step-by-step  procedures 
which  must  be  taken  in  order  to  install  a version  of 
MADMAN  on  any  Honeywell  H600G  series  computer 
with  GCOS  Software  Release  2/H  or  3/1. 

It  also  includes  a description  of  how  to  load  MADMAN 
for  the  second,  third  or  Nth  data  base.  Control 
card  set-ups  for  all  steps  are  given.  This  manual  is 
normally  used  by  both  the  System  Administrator  and 
the  Data  Base  Administrator. 


2)  Data  Base  Utility  Manual 

This  manual  describes  the  format  of  all'  the  commands 
available  in  both  Data  Base  Utility  One  and  Data 
Base  Utility  Two.  It  is  normally  used  only  by  the 
Data  Base  Administrator. 


3)  Data  Definition  Language  Manual 

This  manual  details  the  format  for  the  description  of 
the  schema  for  a data  base.  It  also  is  normally 
only  used  by  the  Data  Base  Administrator. 


4)  Data  Manipulation  Language  Manual 

This  manual  describes  the  format  of  the  commands  to 
the  Data  Base  Management  System.  It  also  describes 
the  workings  of  a typical  application  program.  This 
manual  is  the  primary  source  of  information  for 
application  programmers. 


5)  Prescan  Manual 

This  manual  details  the  options  of  the  command  to  the 
preprocessor  routine  that  inserts  the  required  FORTRAN 
declarations  for  the  sets,  records  and  items  of 
a given  data  base  into  an  application  program.  This 
manual  is  also  for  the  use  of  application  programmers. 


4 


2.  OVERVIEW  OF  MADMAN 


2.1  Parts  of  MADMAN  DBMS 

The  acronym  MADMAN  stands  for  Multi-Access  Data  base 
MANagement  system.  MADMAN  runs  on  the  Honeywell  6000  series 
computer  under  the  GCOS  operating  system,  software  releases  1/H, 
2/G  and  3/1.  Its  purpose  is  to  provide  efficient,  on-line, 
concurrent  access  to  network  structured  data  stored  on  a disc  by 
programs  written  in  FORTRAN.  There  is  one  copy  of  the  MADMAN 
Data  Base  Management  System  (DBMS)  for  each  data  base.  Each 
copy  is  a free  standing  program  that  is  spawned  from  the 
operator's  console. 

Each  copy  of  MADMAN  contains  the  following  modules: 

1.  Dispatcher 

2.  Data  Manipulation  Language  Processor  ( DMLP ) 

3.  Page  Manager  (PM) 

4.  Data  Base  Utility  One  (DBU1) 

5.  Tables  and  Storage 


2.1.1  Dispatcher 

The  dispatcher  is  responsible  for  communications  between 
the  application  programs  (AP)  and  the  DBMS;  and  for  driving  the 
DMLP  and  the  PM.  Data  is  transferred  between  the  AP's  and  the 
DEMS  using  the  standard  GCOS  routine  INTERCOM  I/O  which  moves 
data  from  core  in  one  program  to  core  in  another  program.  The 
section  of  the  dispatcher  using  INTERCOM  I/O  essentially 
functions  as  a separate  program.  It  responds  to  asynchronous 
interrupts  caused  by  some  application  program's  reouest.  Then, 
depending  upon  the  request,  it  allocates  or  de-allocates  storage 
in  the  DBMS  for  the  AP  or  it  queues  up  a task  for  the  DMLP.  The 
dispatcher  also  responds  to  requests  from  the  DMLP  or  PM  to  send 
data  to  the  application  program. 


2.1.2  Data  Manipulation  Language  Processor 

The  DMLP  contains  a set  of  routines  corresponding  to  the 
verbs  in  the  Data  Manipulation  Language.  Each  routine  responds 
to  some  request  made  by  the  application  program.  Each  checks 
that  the  reouest  is  valid  and,  if  so,  perform  the  request.  If 
there  is  an  error,  the  routine  returns  a specific  error  code. 
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In  either  case,  the  dispatcher  returns  the  information  to  the 
application  program  using  INTERCOM  I/O. 


2.1.3  Page  Manager 

The  Page  Manager  is  responsible  for  reading  and  writing 
pages  of  the  data  base  from  or  to  the  disc.  It  is  also 
responsible  for  concurrency  control  which  is  described  in  detail 
in  section  3.3. 


2.1.4  Data  Base  Utility  One 

There  are  two  data  base  utility  routines  --  Data  Base 
Utility  One  (DBUl)  and  Data  Base  Utility  Two  (DBU2) . DBU2  is 
described  in  section  2.3.3.  DBUl  is  loaded  as  a part  of  the 
DBMS  to  permit  the  Data  Base  Administrator  (DBA)  to  communicate 
with  the  data  base  before  it  becomes  available  to  the 
application  programs.  DBUl  responds  to  the  DBA's  requests  for 
such  tasks  as  change  DBMS  parameters,  initialize  or  verify  the 
data  base  or  put  the  data  base  on-line  for  the  AP's  to  use.  It 
also  contains  the  routine  that  handles  recovery.  (See  section 
3.2  for  details  on  the  recovery  procedure.)  Once  the  DBUl  has 
completed  its  tasks,  its  core  is  returned  to  the  system. 


2.1.5  Tables  and  Storage 

The  tables  and  storage  are  assembled  from  files  produced  by 
the  Data  Definition  Language  (DDL)  compiler.  They  tailor  the 
DBMS  to  a specific  data  base.  All  the  other  parts  of  the  DBMS 
are  pure  code  and  are  only  assembled  once.  The  tables  describe 
the  data  base  to  the  rest  of  the  DBMS  and  the  storage 
initializes  buffers  for  communication  with  the  application 
program. 
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2.2  Application  Programs 


Each  copy  of  MADMAN  can  communicate  with  sixteen  concurrent 
FORTRAN  application  programs.  From  the  FORTRAN  programmers 
, viewpoint,  the  communication  consists  of  two  parts: 

1.  A set  of  FORTRAN  library  routines  that  can  be 
called  from  any  FORTRAN  program.  The  names  of 

these  routines,  together  with  their  arguments,  comprise 
the  Data  Manipulation  Language.  The  library  routines, 
themselves,  are  referred  to  as  the  FORTRAN 
Language  Interface  or  FLI. 

2.  FORTRAN  labeled  commons,  one  for  each  record, 

that  contain  the  variables  corresponding  to  the  items 
in  each  record.  The  FLI  routines  put  information 
into  or  take  information  out  of  these  labeled  commons, 
which  are  accessible  to  the  FORTRAN  program  using 
standard  FORTRAN  statements.  The  declarations  of  these 
common  areas  are  automatically  inserted  into  each 
application  program  using  the  Prescan  Routine  described 
in  Section  2.3.2. 

When  an  application  program  wishes  to  use  one  of  the  DML 
verbs,  it  uses  the  FORTRAN  CALL  statement  on  the  corresponding 
FLI  routine.  That  routine  does  some  preliminary  checking  on  the 
validity  of  its  arguments  and  then  uses  INTERCOM  I/O  to  pass  the 
specified  information  between  a specific  labeled  common  and  the 
dispatcher  and  DBMS. 

The  verbs  in  the  DML  are  similar  to  those  proposed  in  the 
CODASYL  COBOL  Journal  of  Development,  1975.  Several  local  verbs 
have  also  been  added. 

The  verbs  can  be  roughly  divided  in  three  groups.  One 
group  consists  of  the  verbs  used  for  data  retrieval.  For 
example  FIND,  FINDK , FINDD  and  FINDA  locate  a particular  record 
depending  on  the  verb  and  the  arguments  used.  There  are  also 
„ four  corresponding  obtain  (OBTN ) verbs  that  locate  the  record 

and  move  it  into  a particular  labeled  common  in  the  application 
program.  Finally,  there  is  a GET  verb  that  moves  some  or  all  of 
the  items  of  the  current  record  into  a particular  labeled  common 
in  the  application  program. 

A second  group  of  verbs  are  used  for  data  base  updating. 

, The  verbs  that  are  from  CODASYL  are  STORE  and  STORED,  MODIFY, 

INSERT,  REMOVE  and  DELETE.  Data  base  updating  verbs  that  are 
not  CODASYL  are  INCR,  CHANGE,  and  CNGSET . INCR  causes  specified 
signed  values  to  be  added  to  given  items  in  the  current  record. 
CHANGE  assigns  specified  values  to  items  in  the  current  record. 
CNGSET  reassigns  the  current  record  to  specified  sets. 


7 


r 


The  third  group  consists  of  miscellaneous  verbs  that  open 
and  close  the  data  base,  perform  tests  on  set  memberships  and 
move  currency  table  entries  to  the  application  program. 

A set  of  reserved  words  exist  that  can  be  used  as  arguments 
in  the  calls  to  the  DBMS.  For  example,  FIRST  can  be  used  in 
FIND  or  OBTN  to  access  the  first  record  of  a given  set.  RDONLY 
is  used  to  indicate  read-only  access  is  requested  on  a data  base 
open 

A complete  description  of  all  the  verbs  and  reserved  words 
is  contained  in  the  Data  Manipulation  Language  manual.  Examples 
of  application  programs  are  given  in  Appendix  A. 

Figure  1 shows  an  overview  of  the  MADMAN  Data  Base 
Management  System  with  application  programs. 
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2.3  Other  Parts  of  MADMAN 


There  are  three  other,  separate,  free  standing  programs 
supplied  in  the  MADMAN  package  that  facilitate  the  use  of  MADMAN 
DBMS. 

1.  Data  Definition  Language  (DDL)  Compiler 

2.  Prescan 

3.  Data  Base  Utility  Two  (DBU2) 


2.3.1  Data  Definition  Language  Compiler 


2. 3. 1.1  DDL  - Schema  Description 

The  data  definition  language  is  used  to  describe  the 
structure  of  the  data  base  (usually  called  the  schema) . The 
elements  of  the  structure  in  MADMAN  are: 

(1)  Items  --  In  FORTRAN  terminology,  items 
can  be  integer,  real,  double  precision,  or 
character.  One  or  more  items  make  up  a record. 

(In  some  terminology,  items  would  be  called  the 
fields  of  the  records)  . 

(2)  Records  — Records  consist  of  groups  of  items 
that  usually  have  some  close  correlation.  One 
or  more  records  make  up  a set. 

(3)  Sets  --  Sets  are  groups  of  records  that  have 
some  relationship  to  each  other.  Sets  have  an 
owner  record  and  one  or  more  member  records. 

Records  become  members  either  automatically 

or  manually.  Set  membership  is  optional, 
mandatory  in  a set,  or  fixed  in  a particular 
set.  Dynamic  sets  are  not  supported;  singular 
sets  are. 

(4)  Areas  — Areas  are  a method  of  grouping  records 
physically  on  some  storage  device  whereas  sets 
are  a logical  grouping. 


2. 3. 1.2  Authority  Key 

The  authority  key  feature  of  the  DDL  provides  the  Data  Base 
Administrator  (DBA)  with  the  ability  to  limit  the  records  and/or 
items  to  which  an  application  program  has  access.  The  DBA 
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defines  the  authority  keys  (passwords)  associated  with 
particular  groups  of  records  or  items.  These  keys  cause  PRESCAN 
to  declare  only  those  parts  of  the  schema  visable  to  the 
application  program  and  cause  the  DBMS  to  access  only  the  data 
visable  to  the  program.  Thus,  the  authority  keys  can  be  used  to 
subset  a schema. 


2. 3. 1.3  DDL  Compiler 

The  DDL  compiler  takes  as  input  a file  containing  the 
schema  description  in  the  form  shown  in  the  Data  Definition 
Language  Manual.  It  produces  files  that  are  inputs  to 
assemblies  for  the  FORTRAN  Language  Interface  (FLI),  the  Data 
Manipulation  Language  Processor  (DMLP) , and  the  Page  Manager 
(PM).  One  file  is  input  to  Prescan.  These  assemblies  are  the 
only  parts  of  MADMAN  that  change  for  each  data  base.  The 
remainder  of  MADMAN  is  assembled  only  once. 


2.3.2  Prescan 

Prescan  is  a preprocessor  for  the  FORTRAN  application 
programs.  Its  input  is  the  application  program  (AP)  and  a file 
describing  the  schema  that  was  outputted  from  the  DDL  compiler. 
Within  the  application  program  is  an  INVOKE  statement.  It  is  a 
non-FORTRAN  statement  that  is  recognized  by  Prescan  as 
containing  the  name  of  the  schema  and  any  restrictions  that 
apply  to  this  application  program.  Prescan  converts  the  INVOKE 
statement  to  a comment  and  inserts  the  FORTRAN  statements  that 
describe  the  schema  as  this  AP  sees  it.  The  statements  consist 
of  labeled  common  statements  for  each  record  and  its  items  and 
PARAMETER  statements  for  reserved  words.  DATA  statements  may 
also  be  included.  After  all  the  statements  describing  the 
schema  are  inserted  into  the  AP,  it  is  written  into  a file. 
This  file  is  then  compiled  and  run  as  an  application  program. 


2.3.3  Data  Base  Utility  Two 

DBU2  is  a free  standing  program  written  mostly  in  FORTRAN. 
Its  purpose  is  to  allow  the  Data  Base  Administrator  to 
communicate  with  any  DBMS  while  the  data  base  is  on-line.  When 
requested,  DBU2  gives  such  information  as  what  AP's  are  running 
against  the  data  base  and  what  the  DBMS  parameters  are.  It  can 
also  be  used  to  generate  statistics  and  to  shut  the  data  base 
down.  See  the  Data  Base  Utility  manual  for  the  complete  list  of 
commands . 
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3.  DATA  BASE  INTEGRITY 


This  section  discusses  three  additional  features  of  the 
MADMAN  system  that  affect  the  integrity  of  a data  base. 

1.  Rollback 

2.  Recovery 

3.  Concurrency 
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3.1  Rollback 


When  an  application  program  makes  any  change  to  the  data 
base  that  causes  the  DMLP  to  write  out  a new  version  of  a data 
base  page,  the  Page  Manager  copies  the  old  version  of  that  page 
to  a "before"  file.  If  later  that  program  terminates  normally, 
its  before  file  space  is  released  and  its  modifications  to  the 
data  base  become  permanent.  If,  however,  the  AP  aborts,  the  PM 
reads  all  the  pages  associated  with  that  AP  from  the  before  file 
and  writes  them  back  into  the  data  base,  thereby  removing  the 
changes  made  by  the  application  program. 

This  process  of  restoring  the  modified  pages  is  called 
rollback.  One  of  its  uses  is  to  insure  that,  if  an  application 
program  does  not  terminate  normally,  its  mod  i f ica t ions  to  the 
data  base  are  removed. 
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3 . 2 Kecover y 

Another  use  of  rollback  is  in  data  base  recovery  in  case  of 
system  crashes.  Recovery  is  a procedure  that  is  automatically 
invoked  when  DBU1  discovers  upon  receiving  the  command  from  the 
DGA  to  put  the  data  base  on-line,  that  the  data  base  was  not 
shut  down  correctly  the  last  time  it  was  on-line.  This 
situation  can  occur  when  GCOS  crashes  or  the  DBMS  is  aborted. 
The  triggering  mechanism  is  the  contents  of  the  before  file. 

'when  the  Data  Ease  Administrator  requests  that  a data  base 
be  put  on-line,  DBU1  checks  the  before  file.  If  the  DBMS  was 
not  shut  down  normally,  recovery  causes  the  contents  of  the 
before  file  to  be  written  to  the  appropriate  data  base  pages. 
Thus,  any  modifications  that  were  made  by  application  programs 
running  at  the  time  of  the  crash  are  removed. 
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3.3  Concurrency  Control 


3.3.1  Description 

The  concurrency  control  is  that  portion  of  the  Page  Manager 
that  is  concerned  with  deciding  what  actions  should  be  taken  in 
response  to  requests  by  individual  application  programs  to  read 
or  write  into  the  data  base.  The  MADMAN  concurrency  control  is 
at  the  system  level.  Individual  application  programs  do  not 
contain  statements  to  lock  and  unlock  data  base  entities  they 
access,  and,  in  fact,  each  application  program  is  written  as  if 
it  were  the  only  program  running  on  the  system. 

The  concurrency  control  is  concerned  with  avoiding 
deadlocks  or  similar  occurrences  that  can  prevent  program 
termination  and  with  maintaining  the  consistency  of  the  data 
base . 


The  concurrency  control  operates  on  the  data  base  page 
level.  When  one  application  program  requests  access  to  a data 
base  entity  (item,  record,  etc),  the  concurrency  control  places 
whatever  locks  are  necessary  on  the  entire  page  on  which  that 
entity  resides. 

The  concurrency  control  allows  multiple  readers  or  a single 
writer  to  access  any  one  page  concurrently.  Thus,  if  a program 
has  had  a read  request  for  an  entity  on  a given  page  granted, 
any  other  program  can  read  that  page  but  if  another  program 
requests  to  write  onto  that  page,  that  program  is  made  to  wait 
until  all  of  the  reading  programs  have  terminated,  aborted  or 
cleanpointed  (see  below) , thus  releasing  the  lock  on  the  page. 
Similarly,  if  one  program  has  had  a write  request  for  a page 
granted,  any  other  programs  requesting  to  read  or  write  on  that 
page  will  be  made  to  wait  until  the  lock  on  that  page  is 
released . 

If  a set  of  programs  that  have  been  made  to  wait  should 
happen  to  form  a cycle  of  programs  waiting  for  each  other,  a 
deadlock  is  said  to  have  occurred.  The  concurrency  control 
detects  this  situation  and  breaks  the  deadlock  by  aborting  one 
or  more  programs  and  rolling  back  their  changes  using  the  before 
file. 

All  locks  the  concurrency  control  has  placed  on  data  base 
pages  on  behalf  of  an  application  program  are  released  when  the 
program  terminates,  aborts  or  cleanpoints. 
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3.3.2  Terminate 


DBTERM  is  a verb  in  the  Data  Manipulation  Language  that 
causes  the  data  base  to  be  closed  to  the  application  program. 
It  also  has  an  argument  that  permits  the  modifications  to  be 
made  permanent  or  to  be  rolled  back. 


3.3.3  Abort 

When  an  application  program  aborts,  all  its  modification  to 
the  data  base  are  rolled  back  automatically. 


3.3.4  Cleanpoint 

DBCLN  is  a verb  in  the  DML  that  permits  the  application 
program  to  declare  a cleanpoint.  A cleanpoint  causes  a close 
and  an  open  on  the  data  base  with  one  access.  An  argument 
permits  the  close  to  be  a normal  terminate,  in  which  case  the 
modifications  done  by  the  AP  up  to  this  point  in  the  program 
become  permanent,  or  a rollback,  in  which  chase  the  Page  Manager 
removes  the  modifications  to  the  data  base.  In  either  case,  an 
open  is  done  immediately  after  the  close  and  the  application 
program  is  considered  a new  program. 


3.3.5  Design 

The  design  of  the  MADMAN  concurrency  control  is  based  on 
the  paper  Concurrency  Control  for  Database  Systems  [1]  and  can 
be  proved  to  work  correctly  in  the  sense  that,  if  each 
individual  program  when  supplied  with  a consistent  data  base 
will  eventually  terminate  without  destroying  the  consistency  of 
the  data  base,  then  during  the  concurrency  operation  of  any  set 
of  application  programs, 

1.  Each  program  sees  a consistent  data  base 

2.  Each  program  eventually  terminates 

3.  The  final  data  base  after  all  processes  terminate 
is  consistent. 
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APPENDIX  A 
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EXAMPLES  OF  APPLICATION  PROGRAMS 


BEFORE  PRESCAN 


4 


18 


C THIS  PROGRAM  UPDATES  THE  RECtIT  FIELD  OF  THE  SUPPLY 

C RECORD  AND  SIGNALS  THE  SUPPLY  ORDER  AS  COMPLETED  WHEN 

C THE  FULL  SUPPLY  ORDER  IS  FILLED.  THIS  IS  DONE  BY  PLACING 

C THE  SUPPLY  ORDER  IN  THE  SUPP  SET  OWNED  BY  THE  * C * STATRC. 

C 

C R.  D.  LORDI  JUNE  1976 

C 

INVOKE  SCHEMA  DEMOB 
CHARACTER  HOL D *60 , P A Y NO  * 1 U 
INTEGER  STAT, ORDER, RCV 
READ (5,999)  PAYNO 
999  FORMAT (A1  0) 

S T A T =0 

CALL  MSGT ( 9/ ' FDBACK  IN',6,S1000) 

C 

CALL  DBOPEN( DEMDB,-1 #0*0*32  , E R L , $ 1 001  ) 

CALL  PROMPT ( 1 8/ 1 ENTER  LOCATION  I D # ' , H 0 L D , 5 / $ 1 U QO , $ 1 00 U ) 
CALL  PICK(H0LD,5,ADCIDN) 

900  FORMAT (15) 

CALL  FINDK(ADCTRC,ANY,ADCIDN,ERL,$1002) 

CALL  FIND(NEXT,ADCTST, STATRC, ERL, $1003) 

CALL  OBTN(NEXT,ADCTST, STATRC, ERL, $100 3) 

IF( ACSTAT.NE. 'R' ) GO  TO  1003 

CALL  PROMPT ( 1 8/ ' ENTER  SUPPLY  ORDER#', HOLD, 5, $1000, $1000) 
DECODE(HOLD,900,ERR=1000)  ORDER 
5 CALL  08TN(NEXT, SUPP, SUPPLY, ERL, $1004) 

I F ( ORDNO.NE . ORDER ) GO  TO  5 

CALL  PROMPT ( 1 8, ' ENTER  QTY  R E C E I V E D ' , H 0 L D , 5 , $ 1 U 00 , $ 1 00 0 ) 
DEC0DE(HOLD,900,ERR=10GU)  RCV 
CALL  INCRCRECEIT, RCV, ERL, $1005) 

CALL  GET  (RECEIT, ERL, 3.1  005  ) 

IFCRECEIT.LT. SUPQTY)  GO  TO  30 

CALL  08TN(NEXT,ADCTST,STATRC,ERL,3>1  00  3) 

IFCACSTAT.NE.  *C)  GO  TO  10U3 

CALL  FINDCCURRNT, NULL, SUPPLY,  SETS,  ERL, 3.1  UU3) 

CALL  CNGSET  ( SUPP,  ERL,  3.1  UU3) 

WRITE(6,901 ,ERR=1G0U)  ORDER 

901  FORMAT (/,'  SUPPLY  ORDER  #*,I5,'  COMPLETED') 

GO  TO  30 

C 

100U  CALL  MSGB(8,'I0  E R R 0 R ’ , 6, 3. 4 0 ) 

1001  CALL  MSGB  ( 1 2,  ' DBOPEN  E R R UR  ' , 6 , 3.  4 5 ) 

1002  CALL  MSGB C 1 6, ' I NV AL I D ADC  NAME', 6, 140) 

1003  CALL  MSGBC22,  ' STATRC  RETRIEVAL  E R R 0 1< ' , 6 , i 4 5 ) 

1004  CALL  MSGBC19, ' INVALID  SUPPLY  U R 0 E R ' , 6 , i 4 u ) 

1005  CALL  MSGB (10, ' INCR  E R RO  R ' , o , i 4 5 ) 

1006  CALL  MSGBC 1 8, ' SUPPLY  STORE  E R R 0 R ' , 6 , 4 4 5 ) 

45  CALL  MSG ( 1 7, ' INFORM  S UP E h V I S 0 R ' , 6 , i 4 0 ) 

40  S T A T * 1 

30  CALL  DBEND(5,6,ERR0R,iTA1  ,3>1uOO) 

STOP 

END 
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c 

C THIS  PROGRAM  SEEKS  ALL  SUPPLY  RECORDS  BEARING  A STRTDT 

C LESS  THAN  OR  EQUAL  TO  AN  INPUTTED  DATA  AND  OWNED  BY 

C A STATRC  RECORD  OF  STATUS  TYPE  'P',  AND  MOVES  THEM  TO 

C THE  ORDINATE  SUPP  SET  WHOSE  OWNER  IS  OF  STATUS  TYPE  '.R'. 

C THIS  'RELEASES'  A SUPPLY  ORDER.  ALL  RELEASES  PRINTED. 

C 

C R.  D.  LORDI  JUNE  1976 

C 

INVOKE  SCHEMA  DEMD6 

CHARACTER  HOL D *60, E N D SE T* 1 /02 5 /,  PA YNO * 1 0 

INTEGER  STAT/DAY 

REAL  OHD/STRKEY/SUPKEY (4) 

READ (5*999)  PA YNO 
999  FORMAT (A1 0) 

S T A T =0 

CALL  MSGT ( 9, ' ORDREL  IN', 6, $1000) 

CALL  ATTACHd  1 , ' M6000  / D EMO  / DUMP  1 04  ; '#3,0,  ISTAT,  ) 

CALL  MSGTC22, ' RELEASED  SUPPLY  ORDERS' #1 1 /$1 000) 

C 

CALL  DBOPENC DEMOB/- 1/0,0# 32/ ERL# $1001 > 

CALL  PR0MPT(19#'ENTER  MAX  S T R T D T ( 5 > : ' / HOL D # 5 / $ 1 000/ $ 1 000 ) 
DECODE(HOLD/900/ERR=1000)  DAY 

900  FORMAT (15) 

WRI TE (1 1 #901 / ERR= 1000) 

901  FORMAT (/#'  0 R D H • # 3X / ' F R OM • # 4 X # ' TO ' / 9X # • M A T E R I AL ' / 1 7 X# 

& ' DESCRIPTI ON '/12X/'QTY'/3X/' START' #3X/' DUE '/5X# 

& ' COST ' #/#1 X/105C '-' ) ) 

3 CALL  OBTN(NEXT/ADCLST/ADCTRC/ERL/$200) 

CALL  OBTN( NEXT/ADCT ST# STATRC /ERL/S  1003) 

IFCACSTAT.NE. ’ P ' ) GO  TO  1003 
CALL  MOVEC (STRKEY) 

CALL  OBTN (NEXT/S UPP/S UP PLY/ERL/S100) 

CALL  0BTN(NEXT/ADCTST/STATRC/SUPP/ERL/$1GU3> 

I F ( ACSTAT .NE  . ' R ' ) GO  TO  1005 
6 CALL  MOVET (SUPP/SUPKEY) 

1 F ( STRTDT .GT . DAY ) GO  TO  5 

CALL  OBTNCOWNER/MATSPC/MAT ITM/ERL#  $1004) 

OHD=  ICS*SUPQT Y 

WRI T E ( 1 1 #902/ERR  = 1000)  ORDNO/DSTADC/ADCIDN/MATIDN/DESCRI/ 
& SOPQTY, STRTDT, SUPDUE/UHD 

902  FORMAT (lX/I5/2X/A5/2X/A5/2X#Alb/2X/A30/3(2X/I5)/2X/F10. 4) 
CALL  0oTN(CURRNT/NULL/STATRC/ERL/$1003) 

CALL  FI NDICURRNT, NULL, SUPPLY, SETS, ERL, $10 06) 

CALL  CNGSET (SUPP, ERL, $1007) 

5 1F(SUPKEY(2) .EQ. STRKEY)  uO  TO  3 
CALL  ObTND(SUPKEY (2)  ) 

GO  TO  6 

100  I FCERROR.fcQ.ENDSET  ) GO  To  3 
GO  TO  100b 

200  IFCERROR.EQ.ENDSET)  GU  TO  20 
GO  TO  1009 
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1 GOO 
1001 

1003 

1004 

1005 

1006 
1007 
100b 
1009 

30 
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CALL  MSGB(8,'I0  ERROR ' , 6 , $ 3 0 ) 

CALL  MS6B ( 1 2, ' DbOPEM  ERROR ' , 6 , $ 30  ) 

CALL  MSGBdO/'MO  P STAT  RECORD', 6, $30) 

CALL  MSGBC29, 'MATSPC/MAT1TM  RETRIEVAL  ERROR ' , 6 , $ 30 ) 
CALL  MSGB(16,'N0  R STAT  RECORD' , 6, $30 ) 

CALL  MSGBC29, 'CURRNT  SUPPLY  RETRIEVAL  ERROR', 6, $30) 
CALL  MSGB( 1 2, ' CNGSET  ERROR ' , 6 , $ 30 ) 

CALL  KSG8 (2 7, ' SUPP/ SUPPL Y RETRIEVAL  ERROR  ’ , 6 , $ 30  ) 
CALL  MSGBC29, ' ADCLST/ADCTRC  RETRIEVAL  ERROR' , 6 , $ 30 ) 
S T A T = 1 

CALL  DBENDC5, 11, ERROR, STAT, $1000) 

STOP 

END 
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